home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ LowLevelHook Timeout.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.3 KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="System\Timeouts"
  5. "NAME"="LowLevel Hook Timeout"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Timeout (ms)"
  9. "DESCRIPTION 1"="A program can install an "hard interceptor" also known as "low level hook" so it is activated if the user does anything."
  10. "DESCRIPTION 2"="Windows activated the program before Windows itself tries to dispatch the message, so if the program owning the hook crashes, the system stability is at risk."
  11. "DESCRIPTION 3"="For this reason, you can enter a timeout (measured in milliseconds) here. If the program does not return control to Windows before the timeout, it is terminated."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18.  
  19.  
  20. sP="HKCU\Control Panel\Desktop\LowLevelHooksTimeout"
  21. Sub Plugin_Initialize 
  22.  i=RegReadValue(sp)
  23.  if IsEmpty(i)=false then
  24.     SetUIElement 1,i
  25.  end if
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  s=GetUIElement(1)
  33.  If Len(s)<=0 then
  34.     if RegValueExists(sP) then
  35.        RegDeleteValue(sP) 
  36.     end if
  37.  else
  38.     Call RegWriteValue(sp,s,1)
  39.  end if
  40. End Sub
  41.  
  42. Sub Plugin_Terminate 
  43. End Sub
  44.  
  45.  
  46.  
  47.